www.gusucode.com > 良精ASP微博管理系统 V1.0 > 良精ASP微博管理系统 V1.0\code\admin\admin_spacesize.asp
<!--#include file="../Include/CheckLogin.asp"--> <html> <title>系统空间占用</title> <link href="images/Admin.css" rel="stylesheet" type="text/css"> <BODY topmargin="20"> <% Sub ShowSpaceInfo(drvpath) dim fso,d,size,showsize set fso=server.createobject("scripting.filesystemobject") drvpath=server.mappath(drvpath) set d=fso.getfolder(drvpath) size=d.size showsize=size & " Byte" if size>1024 then size=(size\1024) showsize=size & " KB" end if if size>1024 then size=(size/1024) showsize=formatnumber(size,2) & " MB" end if if size>1024 then size=(size/1024) showsize=formatnumber(size,2) & " GB" end if response.write "<font face=verdana>" & showsize & "</font>" End Sub Sub Showspecialspaceinfo(method) dim fso,d,fc,f1,size,showsize,drvpath set fso=server.createobject("scripting.filesystemobject") drvpath=server.mappath("pic") drvpath=left(drvpath,(instrrev(drvpath,"\")-1)) set d=fso.getfolder(drvpath) if method="All" then size=d.size elseif method="Program" then set fc=d.Files for each f1 in fc size=size+f1.size next end if showsize=size & " Byte" if size>1024 then size=(size\1024) showsize=size & " KB" end if if size>1024 then size=(size/1024) showsize=formatnumber(size,2) & " MB" end if if size>1024 then size=(size/1024) showsize=formatnumber(size,2) & " GB" end if response.write "<font face=verdana>" & showsize & "</font>" end sub Function Drawbar(drvpath) dim fso,drvpathroot,d,size,totalsize,barsize set fso=server.createobject("scripting.filesystemobject") drvpathroot=server.mappath("pic") drvpathroot=left(drvpathroot,(instrrev(drvpathroot,"\")-1)) set d=fso.getfolder(drvpathroot) totalsize=d.size drvpath=server.mappath(drvpath) set d=fso.getfolder(drvpath) size=d.size barsize=cint((size/totalsize)*400) Drawbar=barsize End Function Function Drawspecialbar() dim fso,drvpathroot,d,fc,f1,size,totalsize,barsize set fso=server.createobject("scripting.filesystemobject") drvpathroot=server.mappath("pic") drvpathroot=left(drvpathroot,(instrrev(drvpathroot,"\")-1)) set d=fso.getfolder(drvpathroot) totalsize=d.size set fc=d.files for each f1 in fc size=size+f1.size next barsize=cint((size/totalsize)*400) Drawspecialbar=barsize End Function %> <table width="90%" align="center" bgcolor="#CCCCCC" align="center" cellspacing="1" bgcolor="#CCCCCC"> <tr bgcolor="#FFFFFF"> <th width="447" height=25 colspan="2">系统空间的使用情况 </th> </tr> <tr bgcolor="#FFFFFF"> <td width="447" height="140" valign="top" > <table width=550 cellpadding=0 cellspacing=1 > <tr bgcolor="#FFFFFF"><td> <% fsoflag=1 if fsoflag=1 then Response.Write("<br>") Function GetPP dim s s=Request.ServerVariables("path_translated") GetPP=left(s,instrrev(s,"\",len(s))) End function if sPP="" then sPP=GetPP if right(sPP,1)<>"\" then sPP=sPP&"\" set fso=server.createobject("scripting.filesystemobject") Set f = fso.GetFolder(sPP) Set fc = f.SubFolders i=1 i2=1 For Each f in fc%> 目录<b><%=f.name%></b>占用空间:<img src="images/vote/VoteL.gif" width="8" height="9"><img src="images/vote/VoteM.gif" width="<%=drawbar(""&f.name&"")%>" height="9"><img src="images/vote/VoteR.gif" width="4" height="9"> <%showSpaceinfo(""&f.name&"")%><br><br> <% i=i+1 if i2<10 then i2=i2+1 else i2=1 end if Next %> 程序文件占用空间:<img src="images/vote/VoteL.gif" width="8" height="9"><img src="images/vote/VoteM.gif" width="<%=drawspecialbar%>" height="9"><img src="images/vote/VoteR.gif" width="4" height="9"> <%showSpecialSpaceinfo("Program")%><br><br> 系统占用空间总计:<br> <img src="images/vote/VoteL.gif" width="8" height="9"><img src="images/vote/VoteM.gif" width="400" height="9"><img src="images/vote/VoteR.gif" width="4" height="9"> <%showspecialspaceinfo("All")%> <% else response.write "<br><li>本功能已经被关闭" end if %> </td> </tr> </table></td> </tr> </table> </body></html>